﻿Public Class xtf_LISTADOensayo04_
    Dim mascaraInforme As New DevExpress.XtraEditors.TextEdit
    Public Overrides Sub IniciarLista()
        Try
            gdc_general.BeginUpdate()
            gdc_general.DataSource = dtt_DataTable
            'ulg_Lista.DisplayLayout.GroupByBox.Style = Infragistics.Win.UltraWinGrid.GroupByBoxStyle.Full

            'Creacion y carga de Cuentas
            dtt_DataTable.Columns.Add("Identificador (ID)")
            dtt_DataTable.Columns.Add("Informe")
            dtt_DataTable.Columns.Add("Fecha")
            dtt_DataTable.Columns.Add("Cliente")
            dtt_DataTable.Columns.Add("Obra")
            dtt_DataTable.Columns.Add("Equipo")
            dtt_DataTable.Columns.Add("Componente a Ensayar")
            dtt_DataTable.Columns.Add("Identificación")
            dtt_DataTable.Columns.Add("Procedimiento y Rev.")
            dtt_DataTable.Columns.Add("Norma de Ensayo")
            dtt_DataTable.Columns.Add("Criterio de Aceptabilidad")
            dtt_DataTable.Columns.Add("Condición superficial")
            dtt_DataTable.Columns.Add("Limpieza Previa")
            dtt_DataTable.Columns.Add("Magnetización (Técnica)")
            dtt_DataTable.Columns.Add("Magnetización (Corriente)")
            dtt_DataTable.Columns.Add("Magnetización (Equipo)")
            dtt_DataTable.Columns.Add("Partículas (Tipo)")
            dtt_DataTable.Columns.Add("Partículas (Color)")
            dtt_DataTable.Columns.Add("Partículas (Marca)")
            dtt_DataTable.Columns.Add("Partículas (Modo de Aplicación)")
            dtt_DataTable.Columns.Add("Tipo de Iluminación")
            dtt_DataTable.Columns.Add("Informe Estado")

            gdv_general.PopulateColumns(dtt_DataTable)


            Dim ensayosubtipo As New cls_ensayosubtipo_
            If ensayosubtipo.BuscarXidmodulo("001073001") Then
                mascaraInforme.EditValue = ensayosubtipo.numero
                mascaraInforme.Properties.Mask.MaskType = DevExpress.XtraEditors.Mask.MaskType.Numeric
                mascaraInforme.Properties.Mask.EditMask = ""
                If ensayosubtipo.ensayotipo.siglaUSA Then mascaraInforme.Properties.Mask.EditMask &= ensayosubtipo.ensayotipo.sigla
                If ensayosubtipo.ensayotipo.siglaENGUSA Then mascaraInforme.Properties.Mask.EditMask &= ensayosubtipo.ensayotipo.siglaENG

                If ensayosubtipo.siglaUSA Then mascaraInforme.Properties.Mask.EditMask &= ensayosubtipo.sigla
                If ensayosubtipo.siglaENGUSA Then mascaraInforme.Properties.Mask.EditMask &= ensayosubtipo.siglaENG

                mascaraInforme.Properties.Mask.EditMask &= "-" & ensayosubtipo.numeroformato

                mascaraInforme.Properties.Mask.UseMaskAsDisplayFormat = True
            End If

            Dim obj_ensayo04_ As New cls_ensayo04_
            If obj_ensayo04_.CargarTodos Then
                For Each ensayo04 As cls_ensayo04_ In obj_ensayo04_.Items
                    AgregarItem(ensayo04)
                Next
            End If
            'ulg_Lista.DataBind()

            FiltrarColumnas()
            gdc_general.EndUpdate()
        Catch ex As Exception
            'Dim frmError As New frm_ErrorManager(ex.Message)
        End Try
    End Sub

    Public Function AgregarItem(ByRef ensayo04 As cls_ensayo04_) As DataRow
        Dim Row As DataRow = dtt_DataTable.NewRow
        Row("Identificador (ID)") = ensayo04.idensayo04
        mascaraInforme.Text = ensayo04.numero
        Row("Informe") = mascaraInforme.Text
        Row("Fecha") = ensayo04.fecha
        If Not IsNothing(ensayo04.cliente) Then
            Row("Cliente") = ensayo04.cliente.ToString
        Else
            Row("Cliente") = "Sin Asignar."
        End If
        If Not IsNothing(ensayo04.centrocostoorden) Then
            Row("Obra") = ensayo04.centrocostoorden.ToString
        Else
            Row("Obra") = "Sin Asignar."
        End If
        If Not IsNothing(ensayo04.equipo) Then
            Row("Equipo") = ensayo04.equipo.ToString
        Else
            Row("Equipo") = "Sin Asignar."
        End If
        If Not IsNothing(ensayo04.componenteensayar) Then
            Row("Componente a Ensayar") = ensayo04.componenteensayar.ToString
        Else
            Row("Componente a Ensayar") = "Sin Asignar."
        End If
        Row("Identificación") = ensayo04.identificacion
        Row("Procedimiento y Rev.") = ensayo04.procedimiento
        If Not IsNothing(ensayo04.norma) Then
            Row("Norma de Ensayo") = ensayo04.norma.ToString
        Else
            Row("Norma de Ensayo") = "Sin Asignar."
        End If
        If Not IsNothing(ensayo04.criterio) Then
            Row("Criterio de Aceptabilidad") = ensayo04.criterio.ToString
        Else
            Row("Criterio de Aceptabilidad") = "Sin Asignar."
        End If
        If Not IsNothing(ensayo04.condicionsuperficial) Then
            Row("Condición superficial") = ensayo04.condicionsuperficial.ToString
        Else
            Row("Condición superficial") = "Sin Asignar."
        End If
        If Not IsNothing(ensayo04.limpieza) Then
            Row("Limpieza Previa") = ensayo04.limpieza.ToString
        Else
            Row("Limpieza Previa") = "Sin Asignar."
        End If
      
        Select Case ensayo04.informeestado
            Case 0
                Row("Informe Estado") = "Aceptado"
            Case 1
                Row("Informe Estado") = "Observado"
            Case 2
                Row("Informe Estado") = "Rechazado"
        End Select


        dtt_DataTable.Rows.Add(Row)
        'ulg_Lista.Rows(ulg_Lista.Rows.Count - 1).Height = 19
        Return Row
    End Function

    Public Sub ModificarItem(ByRef ensayo04 As cls_ensayo04_, ByRef ulg_row As DataRow)
        ulg_row("Identificador (ID)") = ensayo04.idensayo04
        mascaraInforme.Text = ensayo04.numero
        ulg_row("Informe") = mascaraInforme.Text
        ulg_row("Fecha") = ensayo04.fecha
        If Not IsNothing(ensayo04.cliente) Then
            ulg_row("Cliente") = ensayo04.cliente.ToString
        Else
            ulg_row("Cliente") = "Sin Asignar."
        End If
        If Not IsNothing(ensayo04.centrocostoorden) Then
            ulg_row("Obra") = ensayo04.centrocostoorden.ToString
        Else
            ulg_row("Obra") = "Sin Asignar."
        End If
        If Not IsNothing(ensayo04.equipo) Then
            ulg_row("Equipo") = ensayo04.equipo.ToString
        Else
            ulg_row("Equipo") = "Sin Asignar."
        End If
        If Not IsNothing(ensayo04.componenteensayar) Then
            ulg_row("Componente a Ensayar") = ensayo04.componenteensayar.ToString
        Else
            ulg_row("Componente a Ensayar") = "Sin Asignar."
        End If
        ulg_row("Identificación") = ensayo04.identificacion
        ulg_row("Procedimiento y Rev.") = ensayo04.procedimiento
        If Not IsNothing(ensayo04.norma) Then
            ulg_row("Norma de Ensayo") = ensayo04.norma.ToString
        Else
            ulg_row("Norma de Ensayo") = "Sin Asignar."
        End If
        If Not IsNothing(ensayo04.criterio) Then
            ulg_row("Criterio de Aceptabilidad") = ensayo04.criterio.ToString
        Else
            ulg_row("Criterio de Aceptabilidad") = "Sin Asignar."
        End If
        If Not IsNothing(ensayo04.condicionsuperficial) Then
            ulg_row("Condición superficial") = ensayo04.condicionsuperficial.ToString
        Else
            ulg_row("Condición superficial") = "Sin Asignar."
        End If
        If Not IsNothing(ensayo04.limpieza) Then
            ulg_row("Limpieza Previa") = ensayo04.limpieza.ToString
        Else
            ulg_row("Limpieza Previa") = "Sin Asignar."
        End If
       
        Select Case ensayo04.informeestado
            Case 0
                ulg_row("Informe Estado") = "Aceptado"
            Case 1
                ulg_row("Informe Estado") = "Observado"
            Case 2
                ulg_row("Informe Estado") = "Rechazado"
        End Select
    End Sub

    Public Sub New()

        Me.Cursor = Cursors.WaitCursor
        InitializeComponent()
        PERMISONuevo = "001073002"
        PERMISOModificar = "001073003"
        PERMISOEliminar = "001073004"
        PERMISOImprimir = "001073005"
        Me.Text = lbl_modulo.Text : lbl_modulodescripcion.Text = "Listado de " & lbl_modulo.Text & "."
        lbl_modulodescripcion.Text = "Listado de " & lbl_modulo.Text & "."
        IniciarLista()
        Me.Cursor = Cursors.Default


    End Sub
End Class


